home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok44 / m2ced / txt / ced.def next >
Text File  |  1993-11-04  |  1KB  |  49 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    CED.def
  4.     :Contents.   Communication with CED
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Würzburg
  7.     :Copyright.  Shareware
  8.     :Language.   Modula-2
  9.     :Translator. M2Amiga A+L V3.2d
  10.     :Imports.    req
  11.     :History.    V1.0  1.June 1990
  12.  
  13. **********************************************************************)
  14.  
  15. DEFINITION MODULE CED;
  16.  
  17. FROM req IMPORT PathTypePtr;
  18.  
  19. TYPE FehlerType=(ok,noReply,noCED);
  20.  
  21. VAR Fehler:FehlerType;
  22.     Status:PathTypePtr;
  23.     Ergeb :LONGINT;
  24.  
  25. (* If you get a FALSE you will find the reason in Fehler *)
  26.  
  27. PROCEDURE PutMsg2CED(Command:ARRAY OF CHAR):BOOLEAN;
  28. (*:Input.    ARexx-Commandstring
  29.   :Semantic. Send message to CED
  30.   :Result.   Signal for an error
  31.   :Note.     Lookup at "Fehler" for the reason of an error
  32. *)
  33.  
  34. PROCEDURE TalkCED   (Command:ARRAY OF CHAR):BOOLEAN;
  35. (*:Input.    ARexx-Commandstring
  36.   :Semantic. Send message to CED an wait for answer
  37.   :Result.   Signal for an error
  38.   :Note.     Lookup at "Fehler" for the reason of an error
  39.   :Note.     Status contains a pointer to a string. Release it with KillString!!
  40.   :Note.     Ergeb contains any numbers received from CED
  41. *)
  42.  
  43. PROCEDURE KillString(Ptr:PathTypePtr);
  44. (*:Input.    A string received from CED
  45.   :Semantic. Release memory allocated by CED
  46. *)
  47.  
  48. END CED.
  49.